home *** CD-ROM | disk | FTP | other *** search
/ B Soft 4 / B-Soft_4_19xx_Maik__Mike_de_Side_A.d64 / das haett'ich... (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  63 lines
  1. 0 poke53280,1:poke53281,1:poke646,12:print"[147]"
  2. 1 ifpeek(826)=.thenpoke826,1:load"kkw.colour",8,1
  3. 2 poke646,15:b=1024:c=b+1000:d=16384-1024:poke53280,0:poke53281,0:print"[147]"
  4. 3 poke53265,32:poke53272,24:poke53270,216:fori=btoc:pokei,peek(d+i):next
  5. 4 poke53265,59
  6. 5 poke198,0:wait198,1:print"[147]":poke53265,27:poke53272,21:poke53270,200
  7. 9 poke53280,1:poke53281,1:poke646,12
  8. 10 print"[147]       [196]as haett' ich nie gedacht!"
  9. 20 print"[196]ie [211]tory:"
  10. 30 print"[196]u lebst im [202]ahr 2007. [200]eute ist der 6.";
  11. 40 print"[205]aerz. [196]er  [195]omputer-[214]irus  [205]ichelanglo";
  12. 50 print"feiert seinen 532sten  [199]eburtstag.  [196]ie";
  13. 60 print"[193]nti-[214]iren-[208]rogramme   sind  inzwischen";
  14. 70 print"machtlos gegen ihn. [196]ie [205]enschheit kann";
  15. 80 print"damit jedoch seit mehreren [202]ahren umge-";
  16. 90 print"hen. [196]er 6.[205]aerz wurde zum [198]eiertag er-";
  17. 100 print"klaert und die [195]omputer an  diesem  [212]ag";
  18. 101 print"nicht benutzt.
  19. 110 [141]10000
  20. 120 [153]"chr$aebe es da  nicht  die  lenomputer,  die";
  21. 130 [153]"nie abgeschaltet  werden  duerfen,   so";
  22. 140 [153]"waeren   saemtliche   (NULL)robleme   ausge-";
  23. 150 [153]"schlossen.   peekei  den  lenomputern,   die";
  24. 160 [153]"die   lebenserhaltenden   (NULL)ysteme   der";
  25. 170 [153]"valrde   aufrechterhalten,   wurde    ein";
  26. 180 [153]"(NULL)chreibschutzcloseclose fuer  closedie  close (NULL)peicher-";
  27. 190 [153]"medien eingebaut."
  28. 200 [153]"(NULL)ichelangelo ist jedoch ein intelligen-";
  29. 210 [153]"tes (NULL)ystem und lernfaehig.
  30. 220 gosub10000
  31. 230 print"[197]r hat inzwischen  gelernt,  die  [204]ese-";
  32. 240 print"koepfe in [211]chreibkoepfe umzuwandeln und";
  33. 250 print"die vielfaeltigen [211]icherheitssysteme zu";
  34. 260 print"umgehen."
  35. 270 print"[197]r konnte sich in mehrere [193]tomkraftwer-";
  36. 280 print"ke und in den [195]omputer zur  [193]ufrechter-";
  37. 290 print"haltung des  [211]onnenschildes  einschrei-";
  38. 300 print"ben.":gosub10000
  39. 310 print"[196]eine [193]ufgabe..."
  40. 320 print"...ist es nun, die befallenen  [195]omputer";
  41. 330 print"durch einen [195]64 zu ersetzen.  [196]azu  be-";
  42. 340 print"noetigst du natuerlich  auch  die  ent-";
  43. 350 print"sprechende [211]oftware,  die  den  [194]etrieb";
  44. 360 print"eines [203]ernreaktors simulieren kann."
  45. 370 gosub10000
  46. 380 print"[196]eine [193]usruestung..."
  47. 390 print"[218]u [194]eginn besitzt du  eine  [203]arte,  auf";
  48. 400 print"der die  betroffenen  [210]eaktoren  einge-";
  49. 410 print"zeichnet sind,  zwei [195]64er,  sieben [203]o-";
  50. 420 print"pien   eines   [203][203][215]-[211]imulators,   sieben";
  51. 430 print"[210][211]-232 - [211]chnittstellen   und   700 000";
  52. 440 print"[197]uro in bar."
  53. 450 print"[214]iel [197]rfolg bei der schwierigen  [193]ufga-";
  54. 460 print"be!":gosub10002
  55. 470 run
  56. 9999 end
  57. 10000 print" [198]1 [146] [215]eiterlesen /  [198]7 [146] [211]piel laden"
  58. 10001 goto10005
  59. 10002 print" [198]1 [146] [193]nleitung!! /  [198]7 [146] [211]piel laden"
  60. 10005 poke198,0:wait198,1:geta$:ifa$="[136]"then60000
  61. 10010 print"[147]":return
  62. 60000 load"ldr",8
  63.